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LEONID BEDRATYUK 

Abstract. We offer a Maple package SL_2_Inv_Ker for calculating of minimal gen- 
I crating sets for the algebras of joint invariants/semi- invariants of binary forms and for 

' calculations of the kernels of Weitzenbock derivations. 

m 

1. Introduction 

Let Vd= {vq,Vi, . . . , Vd) he d+ 1-dimensional 5'L2-module of binary forms of degree d 
■ and let Vd = V^^ ®Vd^ ® ■ ■ ■ ®Vd„, d = (di, 4, • • • , t^n)- Denote by o{VdY^^ the algebra 

r-| . of polynomial S'L2-invariant functions on V. Denote by OiVd)^'^ the algebra of polyno- 

\ mial [/2-invariant functions on V, where U2 is the maximal unipotent subgroup of SL2. 

^ We have the obvious inclusion 0{VdY^^ C 0{Vdf'' ■ Moreover 0{VdT^ = 0{Vi®Vd)^^^. 

The elements of the finitely generated algebras can be identified with the algebras of 
joint invariants and joint semi-invariants of the binary forms of degrees d. 
<^ \ A linear derivation D of a polynomial algebra is called Weitzenbock derivation if its 

^ ■ matrix (as linear map on the vector space generated by variables of the polynomial 

\0 ■ algebra) is nilpotent. Any Weitzenbock derivation V is completely determined by the 

^ ! Jordan normal form of its matrix. We will denote by Vd, d := (di,d2, ■ ■ ■ ,dn) the 

Weitzenbok derivation if its matrix consisting of n Jordan blocks of size di + 1, 6^2 + 1, 
. . . , (i„, + 1, respectively. 

As is well known, the kernel of the derivations Vd, d := {di, d2, ■ ■ ■ , dn) is isomorphic 
to the algebra of joint semi-invariants (and to the algebra of covariants) for n binary 
K/i , forms of degrees di,d2, ■ ■ ■ ,dn- Thus, the calculations of a minimal generated sets of the 

^ • algebras 0{Vd)^^^ or 0{Vd)^^ can be reduced to calculation of minimal generating set of 

^ ■ the kernel of suitable Weitzenbock derivation. For instance, the algebra 0{Vd)^^ can be 

identified with keiV, where the derivation V is defined by V{vi) = ivi^i, i = 0, . . . ,d. 

2. Algorithm 

The algebra 0{Vd)^'^ is a finitely generated multigraded algebra under the multidegree- 
order: 

0{Vdf' = iO{Vdf')m,0 + {0{Vdf')m,l + ■■■ + {0{Vdf')m,, + " " " , 

where each subspace {O (Vd)'^^) d,j of joint semi-invariants of order j and multidegree 
m := {nil, 7712, ■ ■ ■ , f^n) is finite-dimensional. The formal power series 

00 

V{0{Vdf\zi,Z2,...,z^,t)= J2 dim{{0{Vdfnm,j)zrzT^---z::^"t^, 

■m,j=0 

is called the multivariariate Poincare series of the algebra of join semi-variants Cd- Note 
that each semi-invariant of order zero is an invariant. 

1 



2 



LEONID BEDRATYUK 



Suppose that V{0{Vd)^^^ ,t) = Q(^) coprime polynomials. Denote 

by the degree of the denominator Q{t). Many experimental data leads to the following 
conjecture: 

Conjecture. A degree upper bound for irreducible invariants of the algebra 0{Vd)^^^ 
does not exceed 13 a- 



In the first version of the package we used the following algorithm: 

1. Calculate multivariate Poincare series of the algebras OiVd)^^'^ ( or 0{Vd)^^^ or 
kerP^.) 

2. For every term z'^'^z'^^ ■ ■ ■ z^'^P of the Poincare series calculate (by linear algebra 
method) a basis of the vector space of semi-invariants(or invariants or elements of kernel 
) and the multidegree (mi, m2, . . . , ?Ti„). 

3. Separate irreducible polynomials. 

4. Stop calculation if m\ + m2 + . . . + m„ > 18. 

For the package procedures Min_Gen_Set_Invariaiits_S we use also the following 
simplified algorithm: 

1. Calculate Poincare series of the algebras (9(Vrf)'^^^. 

2. For every term z"^ of the Poincare series calculate a basis of the vector space of 
invariants of the degree m. 

3. Separate irreducible polynomials. 

4. Stop calculation if m > 18. 

The second algorithm works some fast for small values di and n > A. 

The package calculate the set of irreducible invariants up to degree min(18,/3rf), but 
in all known computable cases this set coincides with a minimal generating set, see, for 
example, Brouwer's webpage http://www.win.tue.nl/~aeb/math/invar/invarm.html 

3. Installation. 

The package can be downloaded from the web http: / /sites. google.com/site/bedratyuklp/. 

(1) download the file SL_2_Inv_Ker .mpl and save it into your Maple directory. 

(2) download the Xin's file (see link at the web page) E112 .mpl and save it into your 
Maple directory. 

(3) run Maple 

(4) > restart: read "SL_2_Inv_Ker .mpl" : read "E112.mpl": 

(5) If necessary use > HelPO ; 

4. Package Procedures and Syntax 
Procedure name: Min_Gen_Set_Semi_lnvariants 

Feature: Computes irreducible invariants of the algebra 0{Vd)^^ up to degree 
min(18,/3rf). 

Calling sequence: Min_Gen_Set_Semi_lnvariants( [di, d2, ■ ■ ■ , dn]) ; 
Parameters: 

[di,d2, ■ ■ ■ ,dn] - a list of degrees of n binary forms. 
n - an integer, n < 11. 

Procedure name: Min_Gen_Set_Invariants 

Feature: Computes irreducible invariants of the algebra 0{Vd)^^^ up to degree 
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min(18,/?rf). 

Calling sequence: Min_Gen_Set_Invariants([di, ^2, • • • , dn]) ; 
Parameters: 

[di,d2, ■ ■ ■ , dn] - a list of degrees of n binary forms. 
n - an integer, n < 11. 

Procedure name: Kernel_LLN_Der 

Feature: Computes irreducible elements of the kernel of Weitzenbock derivation up 
to degree min(18,/3d)- 

Calling sequence: Kernel_LLN_Der([(ii, d2, ■ ■ ■ , dn]) ', 
Parameters: 

[di,d2, ■ ■ ■ , dn] - a list of degrees of n binary forms. 
n - an integer, n < 11. 

Procedure name: Min_Gen_Set_Invariants_S 

Feature: By using the second algorithm the procedure computes a set of irreducible 
invariants of the algebra 0{Vd)^^'^ up to degree min(18,/?rf). 
Calling sequence: Min_Gen_Set_Invariants_S( [c/i, ^2, • • • , dn]) ', 
Parameters: 

[di,d2, ■ ■ ■ ,dn] - a list of degrees of n binary forms. 
n - an integer, n < 11. 



5. Examples 
5.1. Compute 0{V4)^^^. Use the command 

> dd:=[4] :INV:=Min_Gen_Set_Invariants(dd) 



"calculating multivariate Poincare series...." 
done!, upper bound", 13 
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To extract the two invariants from the set INV one should to use the commands 
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>INV[2] ; 
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{6 x-i + 2 — 8 X1X3} 



>INV[3] ; 



{ —6 x-i — 6 x^x-i — 6 2:1^X4 + 6 x^x^Xi^ + 12 2:1X2X3 } 



5.2. Compute C(\/3 



Use the command 



> dd : = [3 , 4] : INV : =Min_Gen_Set_Invariants (dd) : 

"calculating multivariate Poincare series...." 
"done!, upper bound", 13 
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To get the number of invariants of degree i use the command nops(INV[i] ), for 
instance 

> nops(INV[5]) ; 

2 

To extract and manipulate by these two invariants use the following commands 

> Inv5_l:=INV[5] [1] : Inv5_2 : =INV [5] [2] ; 

Inv5_2 := 6 Xi^xs^yo + 18 Xi^X2^y2 - 12 Xi^xsy2 - 12 2:1^x21/3 + 6 Xo^X2^2/4 + 6 X2^?/o+ 

+6Xi^?/4 + 12Xi^2;2X3yi - 12X0X1X3^1/1 + 12X0X2^X32/1 + 12XoXi^X3?/3 - 12 XoXi^X2?/4- 
-12 Xo^X2X3y3 - 12 XiX2^X3?/o + 12 XoXiX2^y3 - 12 XoX2^?/2 + 6 Xo^X3^?/2 - 12 XiX2^yi 



5.3. Compute 0{Vi ®Vi® ¥2)^'' • Use the command 

> dd : = [1 , 1 , 2] : GOV : =Min_Gen_Set_Seini_Invariants (dd) 

"calculating multivariate Poincare series., 
"done!, upper bound", 13 
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Below is this minimal generating set listed by degree 

> COV[l];nops(%); 

{xo,2/o,^io} 
3 

> C0V[2];nops(%); 

{-Xoyi + Xi?/o, -y\UQ + 2/otil, -Xi^o + XoMl, 2 UqU2 - 2 Mi^} 

4 

> C0V[3];nops(%); 
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5.4. Compute the kernel of the Weitzenbock derivation Vd^ d 

command 

> dd : = [1 , 3] : Ker : =Kernel_LLN_Der (dd) : 

"calculating multivariate Poincare series...." 
"done!, upper bound", 13 
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" degree- 
irreducible element of multidegree" 
irreducible element of multidegree" 

" degree 

irreducible element of multidegree" 
irreducible element of multidegree" 
irreducible element of multidegree" 

" degree 

irreducible element of multidegree" 
irreducible element of multidegree" 
irreducible element of multidegree" 
irreducible element of multidegree" 
" degree- 
irreducible element of multidegree" 
" degree- 
irreducible element of multidegree" 

" degree- 

" degree- 

" degree- 

" degree- 

" degree- 

" degree- 

" degree- 



[1, 1] 
[0, 2] 



[2, 1] 
[0, 3] 

[1, 2] 

[2, 2] 
[3, 1] 
[0, 4] 
[1,3] 

[2, 3] 

[3, 3] 



'and order ", 2, 
2, 



'and order " 

-",3 

'and order " 

'and order " 

'and order " 
II 

'and order " 

'and order " 

'and order " 

'and order " 
_ii 

'and order " 
_ii 

'and order " 
II 



_ii 
_ii 
_ii 
_ii 

_ll 
II 



7 
8 
9 

10 
11 
12 
13 



> Ker [3] ; 
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{-6 2/0^2/3+6 yoyiy2-2 yi^, 4 xiyoy2-6 xoyoy3+2 xo2/i?/2-2 -2 xo^y2-xi^yo+2 xoXiyi} 



5.5. Compute 0{Vi © Vi © Vi © V2 © V^2)^'^'- Use the command 
> dd : = [1 , 1 , 1 , 2 , 2] : Inv : =Min_Gen_Set_Invar iants.S (dd) : 

"calculating Poincare series...." 
"done!, upper bound", 6 
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6, "irreducible invariants found" 
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> Ker[3] ; 

{3 yo^V2 - 6 yoUiVi + 3 yi^vo, 3 yo'^W2 + 3 yi^wo - 6 yoyiWi, 6 uqUiWi - 3 uo'^W2 - 3 ui^wq, 
- 6 yoUoV2 - 6 yiUiVQ + 6 yiu^vi + 6 j/o«i^i, -6 2/o«o«^2 - 6 yiUiWo + 6 yoUiWi + 6 yiUoWi, 

6 UqUiVi — 3 Ui^Vq — 3 Uq'^V2, 6 UiXqVi + 6 UqXiVi — 6 UqXoV2 — 6 UiXiVq, 

6 yiXQWi — 6 yiXiWo — 6 yoXoW2 + 6 yoXiWi, —6 uiXiWq — 6 UoXqW2 + 6 UqXiWi + 6 UiXqWi, 
6 yoXiVi—6 ?/ia;ifo+6 ?/iXofi— 6 yo2;o'i^25 —3 Xi'^Vo+6 XoXiVi— 3 Xo^f2, —3 Xo^W2+6 xqXiWi—3 Xi 



